home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Screens Data A (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  226 lines
  1. 1      rem *** screens ***
  2. 5 rem permanent ml begins at 828
  3. 10 print"[147]entering machine language"
  4. 15 poke52,147:poke56,147:clr:b=37691
  5. 20 fork=.to195
  6. 25 forj=.to15:reada:pokeb+j,a:x=x+a:next:reada
  7. 30 ifx<>athenprint"error in data line"peek(64)*256+peek(63):stop
  8. 35 x=.:b=b+16:next:poke40827,3
  9. 40 print"machine language entered"
  10. 45 :
  11. 100     rem *** save ml ***
  12. 105 print"saving screens a"
  13. 110 poke780,8:poke781,8:poke782,255:sys65466
  14. 115 n$="0:screens a,p,w"
  15. 120 l=len(n$):forj=1tol:poke849+j,asc(mid$(n$,j,1)):next
  16. 125 poke780,l:poke781,82:poke782,3:sys65469
  17. 130 poke251,59:poke252,147
  18. 135 poke780,251:poke781,124:poke782,159:sys65496
  19. 140 ifstthengoto200
  20. 145 print"screens a saved.  sys37742 to start
  21. 150 [153]"interrupt or load and run screens a.":[144]
  22. 155 :
  23. 195     [143] *** read error channel ***
  24. 200 [159]15,8,15
  25. 205 [132]15,a,a$,b,c
  26. 210 [153]a,a$,b,c
  27. 215 [160]15:[144]
  28. 995 :
  29. 1000 [131]11,8,10,0,158,50,48,54,49,0,0,0,169,13,133,87,790
  30. 1002 [131]169,8,133,88,160,71,132,89,160,0,169,147,133,90,162,13,1724
  31. 1004 [131]177,87,145,89,136,208,249,230,88,230,90,202,48,2,208,240,2429
  32. 1006 [131]76,110,147,162,111,189,144,147,157,62,3,202,16,247,169,147,2089
  33. 1008 [131]32,210,255,24,162,9,160,10,32,240,255,169,164,160,148,32,2062
  34. 1010 [131]30,171,76,184,148,165,197,201,57,240,3,108,60,3,120,169,1932
  35. 1012 [131]49,141,20,3,169,234,141,21,3,88,169,160,133,88,169,145,1733
  36. 1014 [131]133,90,169,176,133,92,169,148,133,94,160,0,132,87,132,89,1937
  37. 1016 [131]132,91,132,93,32,157,3,120,169,46,133,1,162,12,177,91,1551
  38. 1018 [131]145,93,136,208,249,230,92,230,94,202,208,242,169,47,133,1,2479
  39. 1020 [131]88,76,93,158,120,169,46,133,1,32,157,3,169,47,133,1,1426
  40. 1022 [131]88,108,60,3,162,15,177,89,145,87,136,208,249,230,88,230,2075
  41. 1024 [131]90,202,208,242,96,169,128,141,138,2,169,0,133,89,165,209,2181
  42. 1026 [131]133,87,24,165,210,105,212,133,88,164,211,177,209,72,170,177,2337
  43. 1028 [131]87,133,91,173,134,2,145,87,24,177,209,105,128,145,209,230,2079
  44. 1030 [131]89,24,165,162,105,20,133,90,32,228,255,208,21,165,90,197,1984
  45. 1032 [131]162,208,245,165,89,240,220,138,145,209,165,91,145,87,198,89,2596
  46. 1034 [131]240,223,170,104,164,211,145,209,165,91,145,87,96,32,0,148,2230
  47. 1036 [131]138,201,133,144,5,201,141,176,1,96,32,210,255,208,238,169,2348
  48. 1038 [131]63,133,87,133,91,169,0,133,89,133,93,169,5,133,88,169,1688
  49. 1040 [131]147,133,90,169,217,133,92,169,146,133,94,160,240,165,2,240,2330
  50. 1042 [131]12,177,87,145,89,177,91,145,93,136,208,245,96,177,89,145,2112
  51. 1044 [131]87,177,93,145,91,136,208,245,96,80,82,69,83,83,32,95,1802
  52. 1046 [131]32,70,79,82,32,83,67,82,69,69,78,83,0,173,20,3,1022
  53. 1048 [131]141,60,3,173,21,3,141,61,3,120,169,62,141,20,3,169,1290
  54. 1050 [131]3,141,21,3,88,32,16,158,162,12,177,91,145,93,136,208,1486
  55. 1052 [131]249,230,92,230,94,202,208,242,96,0,0,0,0,0,0,169,1812
  56. 1054 [131]15,141,34,208,133,2,32,106,148,173,17,208,9,64,141,17,1448
  57. 1056 [131]208,169,11,141,134,2,169,63,133,87,169,5,133,88,160,240,1912
  58. 1058 [131]169,96,145,87,136,208,251,162,40,169,109,157,63,5,157,7,1961
  59. 1060 [131]6,169,0,157,63,217,157,7,218,202,208,237,162,24,181,217,2225
  60. 1062 [131]9,128,149,217,202,208,247,169,39,133,213,96,0,198,201,204,2413
  61. 1064 [131]197,206,193,205,197,160,168,177,173,177,180,160,195,200,193,210,2991
  62. 1066 [131]211,169,186,160,0,206,193,205,197,160,212,207,207,160,204,207,2884
  63. 1068 [131]206,199,186,160,210,197,196,207,0,48,58,72,32,44,83,44,1942
  64. 1070 [131]87,157,160,157,162,3,189,107,149,32,210,255,202,208,247,96,2421
  65. 1072 [131]169,11,141,36,208,32,234,148,24,162,10,160,2,32,240,255,1864
  66. 1074 [131]169,56,160,149,32,30,171,160,0,185,100,149,153,233,7,200,1954
  67. 1076 [131]192,4,208,245,132,95,32,0,148,164,95,138,201,13,240,38,1945
  68. 1078 [131]201,20,208,12,192,4,240,238,136,198,95,32,111,149,208,230,2274
  69. 1080 [131]41,127,201,32,144,224,138,153,233,7,200,230,95,9,128,32,1994
  70. 1082 [131]210,255,208,210,240,208,192,19,144,25,32,111,149,136,208,250,2597
  71. 1084 [131]32,111,149,162,12,160,9,32,240,255,160,149,169,80,32,30,1782
  72. 1086 [131]171,240,149,162,0,189,104,149,153,233,7,200,230,95,232,224,2538
  73. 1088 [131]4,208,242,96,165,92,32,210,255,165,91,32,210,255,165,90,2312
  74. 1090 [131]32,210,255,96,198,177,189,211,195,210,197,197,206,160,195,207,2935
  75. 1092 [131]204,207,210,160,160,160,198,178,189,211,193,214,197,13,29,29,2552
  76. 1094 [131]29,198,179,189,194,207,210,196,197,210,160,195,207,204,207,210,2992
  77. 1096 [131]160,160,160,198,180,189,212,200,201,211,160,205,197,206,213,13,2865
  78. 1098 [131]29,29,29,198,181,189,208,210,201,206,212,160,195,207,204,207,2665
  79. 1100 [131]210,160,160,160,160,198,182,189,211,212,193,210,212,13,29,29,2528
  80. 1102 [131]29,198,183,189,197,210,193,211,197,160,205,197,206,213,160,160,2908
  81. 1104 [131]160,160,160,198,184,189,211,193,214,197,175,210,197,208,204,193,3053
  82. 1106 [131]195,197,19,0,0,15,111,8,232,7,238,134,2,173,134,2,1467
  83. 1108 [131]41,15,141,134,2,162,0,157,0,216,157,0,217,157,0,218,1617
  84. 1110 [131]202,208,244,162,233,157,255,218,202,208,250,96,32,234,148,24,2873
  85. 1112 [131]162,9,160,3,32,240,255,169,15,160,150,32,30,171,169,0,1757
  86. 1114 [131]133,198,96,169,15,162,8,160,15,32,186,255,169,0,32,189,1819
  87. 1116 [131]255,32,192,255,162,15,96,198,179,189,210,197,208,197,193,212,2790
  88. 1118 [131]160,160,160,198,181,189,211,212,193,210,212,0,0,32,206,150,2474
  89. 1120 [131]32,198,255,160,0,132,5,169,126,133,78,169,145,133,79,32,1846
  90. 1122 [131]207,255,145,78,200,32,183,255,41,64,240,243,160,0,177,78,2358
  91. 1124 [131]201,48,208,1,96,201,54,208,20,200,177,78,201,51,208,13,1965
  92. 1126 [131]165,6,208,9,32,100,157,32,206,150,76,111,151,230,5,32,1670
  93. 1128 [131]234,148,24,162,9,160,3,32,240,255,160,0,177,78,201,13,1896
  94. 1130 [131]240,8,9,128,32,210,255,200,208,242,32,210,255,24,162,11,2226
  95. 1132 [131]160,10,32,240,255,160,150,169,226,32,30,171,169,15,32,195,2046
  96. 1134 [131]255,76,231,255,165,95,162,233,160,7,32,189,255,169,8,162,2454
  97. 1136 [131]8,164,38,32,186,255,32,192,255,96,0,70,53,32,84,79,1576
  98. 1138 [131]32,83,76,79,87,32,32,32,32,70,55,32,84,79,32,72,909
  99. 1140 [131]65,76,84,32,76,73,83,84,73,78,71,0,32,183,150,133,1293
  100. 1142 [131]6,133,3,164,3,240,5,32,88,148,208,5,32,228,255,240,1790
  101. 1144 [131]251,201,133,144,238,208,14,238,33,208,173,33,208,41,15,141,2279
  102. 1146 [131]33,208,76,174,151,201,134,208,14,238,32,208,173,32,208,41,2131
  103. 1148 [131]15,141,32,208,76,174,151,201,136,144,27,208,31,165,3,208,1920
  104. 1150 [131]194,169,0,133,198,133,2,173,17,208,41,191,141,17,208,32,1857
  105. 1152 [131]106,148,230,3,208,173,32,149,150,76,174,151,201,138,144,8,2091
  106. 1154 [131]208,10,165,3,240,166,208,148,230,6,208,6,201,140,144,71,2154
  107. 1156 [131]208,145,165,3,133,2,32,106,148,165,6,208,13,165,4,240,1743
  108. 1158 [131]9,162,2,164,95,32,240,149,240,3,32,123,149,169,0,133,1702
  109. 1160 [131]2,32,106,148,169,2,133,38,32,206,150,32,111,151,162,15,1489
  110. 1162 [131]32,251,150,165,5,240,17,165,197,201,5,208,6,32,186,150,2010
  111. 1164 [131]76,170,151,201,6,208,240,96,162,8,32,201,255,173,33,208,2220
  112. 1166 [131]32,210,255,173,32,208,32,210,255,173,24,208,32,210,255,160,2469
  113. 1168 [131]0,132,87,169,4,133,88,162,3,177,87,32,210,255,136,208,1883
  114. 1170 [131]248,230,88,202,16,243,169,216,133,88,177,87,41,15,133,90,2176
  115. 1172 [131]162,3,132,91,132,92,177,87,41,15,197,90,240,13,72,32,1576
  116. 1174 [131]255,149,104,133,90,169,0,133,91,133,92,230,91,208,2,230,2110
  117. 1176 [131]92,136,208,226,230,88,202,16,221,32,255,149,162,15,32,251,2315
  118. 1178 [131]150,165,5,240,3,76,79,152,133,4,169,15,32,195,255,76,1749
  119. 1180 [131]231,255,211,195,210,197,197,206,160,196,197,204,197,212,197,196,3261
  120. 1182 [131]0,24,165,162,101,90,133,90,165,90,197,162,208,250,96,165,2098
  121. 1184 [131]92,201,15,176,16,169,13,32,210,255,160,11,169,32,32,210,1793
  122. 1186 [131]255,136,208,250,96,169,208,133,87,169,4,133,88,133,90,169,2328
  123. 1188 [131]248,133,89,162,15,160,25,177,89,145,87,136,208,249,24,169,2116
  124. 1190 [131]40,101,87,133,87,144,3,230,88,24,169,40,101,89,133,89,1558
  125. 1192 [131]144,2,230,90,202,208,222,162,19,160,11,76,240,255,169,1,2191
  126. 1194 [131]141,32,208,169,15,141,33,208,169,11,141,134,2,169,2,133,1708
  127. 1196 [131]95,169,36,141,233,7,169,48,141,234,7,169,0,133,38,169,1789
  128. 1198 [131]147,32,210,255,162,3,160,3,32,240,255,169,134,160,151,32,2145
  129. 1200 [131]30,171,32,111,151,169,8,32,195,255,32,248,150,169,15,32,1800
  130. 1202 [131]195,255,32,231,255,165,5,240,11,165,197,201,5,240,208,201,2606
  131. 1204 [131]6,208,246,96,32,111,151,162,8,32,198,255,162,5,160,11,1843
  132. 1206 [131]32,240,255,160,0,132,91,132,92,32,207,255,201,0,240,14,2083
  133. 1208 [131]201,32,144,245,201,128,176,241,153,126,145,200,208,235,165,91,2691
  134. 1210 [131]201,2,144,60,162,19,189,126,145,201,83,208,51,173,127,145,2036
  135. 1212 [131]201,72,208,44,173,128,145,201,32,208,37,162,0,189,126,145,2071
  136. 1214 [131]32,210,255,232,224,18,208,245,230,92,32,250,152,165,197,201,2743
  137. 1216 [131]6,208,9,169,40,133,90,32,236,152,240,4,201,3,240,9,1772
  138. 1218 [131]230,91,32,183,255,41,64,240,8,169,8,32,195,255,76,248,2127
  139. 1220 [131]150,32,207,255,201,34,208,234,160,0,76,187,153,0,13,32,1942
  140. 1222 [131]32,67,82,83,82,95,61,72,73,76,73,84,69,32,68,79,1128
  141. 1224 [131]87,78,32,32,32,32,67,82,83,82,94,61,72,73,76,73,1056
  142. 1226 [131]84,69,32,85,80,13,32,32,82,69,84,85,82,78,61,76,1044
  143. 1228 [131]79,65,68,32,83,67,82,69,69,78,32,32,32,68,61,68,985
  144. 1230 [131]69,76,69,84,69,32,70,73,76,69,0,78,79,32,72,32,980
  145. 1232 [131]83,67,82,69,69,78,83,32,79,78,32,68,73,83,75,0,1051
  146. 1234 [131]160,22,177,87,41,127,145,87,136,208,247,96,198,177,189,193,2290
  147. 1236 [131]205,197,206,196,160,211,195,210,197,197,206,160,160,160,160,198,3018
  148. 1238 [131]178,189,197,216,201,212,160,208,210,207,199,210,193,205,13,160,2958
  149. 1240 [131]160,160,198,179,189,193,206,207,212,200,197,210,160,211,195,210,3087
  150. 1242 [131]197,197,206,160,160,198,180,189,212,200,201,211,160,205,197,206,3079
  151. 1244 [131]213,13,160,160,160,198,181,189,212,207,160,211,212,193,210,212,2891
  152. 1246 [131]160,160,160,160,160,160,160,160,198,183,189,197,210,193,211,197,2858
  153. 1248 [131]160,205,197,206,213,0,169,0,133,4,32,73,153,169,15,32,1761
  154. 1250 [131]195,255,32,231,255,165,5,240,11,165,197,201,5,240,235,201,2633
  155. 1252 [131]6,208,246,96,165,92,208,36,32,234,148,24,160,10,162,9,1836
  156. 1254 [131]32,240,255,169,118,160,154,32,30,171,24,160,10,162,11,32,1760
  157. 1256 [131]240,255,160,150,169,226,32,30,171,76,20,155,24,162,1,160,2031
  158. 1258 [131]10,32,240,255,169,226,160,150,32,30,171,169,41,160,154,32,2031
  159. 1260 [131]30,171,173,17,208,9,64,141,17,208,169,7,141,35,208,169,1767
  160. 1262 [131]14,197,92,176,2,133,92,198,92,169,0,133,94,133,89,169,1783
  161. 1264 [131]209,133,87,169,4,133,88,160,20,177,87,9,128,145,87,136,1772
  162. 1266 [131]208,247,169,10,133,90,32,236,152,165,197,201,7,208,24,165,2244
  163. 1268 [131]94,201,0,240,244,198,94,32,139,154,56,165,87,233,40,133,2110
  164. 1270 [131]87,176,212,198,88,208,208,201,2,208,24,165,94,197,92,240,2400
  165. 1272 [131]216,230,94,32,139,154,24,165,87,105,40,133,87,144,184,230,2064
  166. 1274 [131]88,208,180,201,5,208,6,32,139,154,76,1,155,201,6,208,1868
  167. 1276 [131]3,76,139,154,201,18,208,4,230,89,208,4,201,1,208,169,1913
  168. 1278 [131]169,48,141,233,7,169,58,141,234,7,160,3,162,2,177,87,1798
  169. 1280 [131]41,127,201,64,176,8,201,32,176,19,9,64,208,15,201,96,1638
  170. 1282 [131]176,4,9,128,208,7,201,160,176,3,24,105,64,201,34,240,1740
  171. 1284 [131]7,157,233,7,200,232,208,214,169,44,157,233,7,169,83,232,2352
  172. 1286 [131]157,233,7,232,134,95,32,139,154,165,89,240,24,32,100,157,1990
  173. 1288 [131]32,234,148,24,160,13,162,9,32,240,255,169,221,160,152,32,2043
  174. 1290 [131]30,171,76,53,155,169,0,133,38,32,111,151,169,8,32,195,1523
  175. 1292 [131]255,32,248,150,165,5,240,3,76,20,155,169,147,32,210,255,2162
  176. 1294 [131]32,111,151,162,8,32,198,255,32,207,255,141,33,208,32,207,2064
  177. 1296 [131]255,141,32,208,32,207,255,141,24,208,169,0,133,87,168,169,2229
  178. 1298 [131]4,133,88,162,3,32,207,255,145,87,136,208,248,230,88,202,2228
  179. 1300 [131]16,243,169,216,133,88,169,3,133,93,160,0,32,207,255,133,2050
  180. 1302 [131]92,32,207,255,133,91,32,207,255,133,90,145,87,136,208,6,2109
  181. 1304 [131]230,88,198,93,48,23,198,91,208,241,165,92,208,9,32,183,2107
  182. 1306 [131]255,41,64,240,215,208,6,165,90,198,92,16,218,162,15,32,2017
  183. 1308 [131]251,150,165,5,240,3,76,20,155,169,15,32,195,255,32,231,1994
  184. 1310 [131]255,169,7,32,236,148,24,162,9,160,3,32,240,255,169,151,2052
  185. 1312 [131]160,154,32,30,171,169,0,133,198,133,3,32,228,255,240,251,2189
  186. 1314 [131]201,133,208,23,169,15,141,34,208,32,244,148,32,186,150,230,2154
  187. 1316 [131]4,169,0,133,2,32,106,148,76,167,151,201,134,208,13,169,1713
  188. 1318 [131]15,141,34,208,169,21,141,24,208,76,1,155,201,137,208,3,1742
  189. 1320 [131]230,39,96,201,135,208,1,96,201,138,208,6,165,3,240,187,2154
  190. 1322 [131]208,159,201,136,208,181,173,17,208,41,191,141,17,208,169,0,2258
  191. 1324 [131]133,2,32,106,148,230,3,208,167,169,83,141,232,7,160,0,1821
  192. 1326 [131]185,232,7,201,44,240,3,200,208,246,132,183,162,4,189,144,2380
  193. 1328 [131]150,133,184,202,16,248,165,186,32,177,255,165,185,32,147,255,2532
  194. 1330 [131]160,0,185,232,7,32,168,255,200,196,183,144,245,32,174,255,2468
  195. 1332 [131]76,231,255,211,212,193,210,212,13,160,160,198,177,189,205,193,2895
  196. 1334 [131]203,197,175,211,193,214,197,160,211,195,210,197,197,206,160,160,3086
  197. 1336 [131]160,198,179,189,214,177,197,215,160,211,195,210,197,197,206,13,2918
  198. 1338 [131]160,160,198,181,189,197,216,177,212,160,208,210,207,199,210,193,3077
  199. 1340 [131]205,160,160,198,183,189,211,193,214,197,160,208,210,207,199,160,3054
  200. 1342 [131]211,195,210,197,197,206,0,173,136,2,133,88,160,0,132,87,2127
  201. 1344 [131]132,89,132,91,132,93,169,176,133,90,169,216,133,92,169,180,2196
  202. 1346 [131]133,94,162,4,96,169,145,133,88,169,160,133,90,169,148,133,2026
  203. 1348 [131]92,169,176,133,94,160,0,132,87,132,89,132,91,132,93,162,1874
  204. 1350 [131]15,96,173,248,147,141,24,208,173,247,147,141,134,2,32,242,2170
  205. 1352 [131]157,120,169,46,133,1,177,89,145,87,177,93,145,91,136,208,1974
  206. 1354 [131]245,230,88,230,90,230,92,230,94,202,208,234,169,47,133,1,2523
  207. 1356 [131]88,96,32,242,157,177,87,145,89,177,91,145,93,136,208,245,2208
  208. 1358 [131]230,88,230,90,230,92,230,94,202,208,234,162,25,181,217,157,2670
  209. 1360 [131]177,145,202,16,248,162,125,181,0,157,0,145,202,16,248,173,2197
  210. 1362 [131]17,208,141,250,147,173,136,2,141,249,147,173,24,208,141,248,2405
  211. 1364 [131]147,173,134,2,141,247,147,162,4,189,32,208,157,251,147,202,2343
  212. 1366 [131]16,247,56,32,240,255,140,246,147,142,245,147,169,4,141,136,2363
  213. 1368 [131]2,169,27,141,17,208,32,129,255,169,21,141,24,208,169,1,1713
  214. 1370 [131]141,32,208,169,7,141,33,208,169,3,32,236,148,24,162,9,1722
  215. 1372 [131]160,17,32,240,255,169,158,160,157,32,30,171,169,0,133,198,2081
  216. 1374 [131]32,228,255,240,251,201,133,208,11,169,147,32,210,255,32,167,2571
  217. 1376 [131]151,76,193,158,201,134,208,19,169,15,141,34,208,169,0,133,2009
  218. 1378 [131]39,32,1,155,165,39,208,40,76,193,158,201,135,240,33,201,1916
  219. 1380 [131]136,208,201,173,251,147,141,32,208,173,252,147,141,33,208,32,2483
  220. 1382 [131]45,158,169,0,133,39,32,236,156,165,39,208,3,76,193,158,1810
  221. 1384 [131]162,4,189,251,147,157,32,208,202,16,247,173,250,147,141,17,2343
  222. 1386 [131]208,162,125,189,0,145,149,0,202,16,248,32,45,158,173,249,2101
  223. 1388 [131]147,141,136,2,162,25,189,177,145,149,217,202,16,248,24,172,2152
  224. 1390 [131]246,147,174,245,147,32,240,255,32,196,148,32,16,158,76,141,2285
  225. 1392 [131]3,3
  226.